object PGPkeysForm: TPGPkeysForm Left = 135 Top = 77 Width = 577 Height = 356 Caption = 'OpenPGP Key Manager' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu OldCreateOrder = True OnActivate = FormActivate OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object ListBox: TListBox Left = 0 Top = 20 Width = 569 Height = 282 Style = lbOwnerDrawFixed Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 MultiSelect = True ParentFont = False PopupMenu = ListPopup TabOrder = 0 OnClick = ListBoxClick OnDblClick = ListBoxDblClick OnDrawItem = ListBoxDrawItem OnKeyDown = ListBoxKeyDown OnMouseDown = ListBoxMouseDown end object Header: THeaderControl Left = 0 Top = 0 Width = 569 Height = 20 Sections = < item ImageIndex = -1 MinWidth = 40 Text = 'Keys' Width = 300 end item Alignment = taCenter ImageIndex = -1 Text = 'Validity' Width = 50 end item Alignment = taCenter ImageIndex = -1 Text = 'Trust' Width = 60 end item Alignment = taRightJustify ImageIndex = -1 Text = 'Size' Width = 50 end item ImageIndex = -1 MaxWidth = 2000 MinWidth = 2000 Text = 'Description' Width = 2000 end> OnSectionResize = HeaderSectionResize end object MainMenu: TMainMenu Left = 56 Top = 56 object mEdit: TMenuItem Caption = '&Edit' ShortCut = 16430 object meCopy: TMenuItem Caption = '&Copy' ShortCut = 16451 OnClick = pCopyClick end object mePaste: TMenuItem Caption = '&Paste' ShortCut = 16470 OnClick = mePasteClick end object meDelete: TMenuItem Caption = '&Delete' ShortCut = 16430 OnClick = pDeleteClick end object N4: TMenuItem Caption = '-' end object meSelectAll: TMenuItem Caption = 'Select &All' ShortCut = 16449 OnClick = meSelectAllClick end object meCollapse: TMenuItem Caption = 'Co&llapse Selection' OnClick = meCollapseClick end object meExpand: TMenuItem Caption = 'E&xpand Selection' OnClick = meExpandClick end end object Keys1: TMenuItem Caption = '&Keys' object mkSign: TMenuItem Caption = 'Sign...' ShortCut = 16467 OnClick = pSignClick end object mkSetDefaultKey: TMenuItem Caption = 'Set as Default Key' ShortCut = 32836 OnClick = pSetasDefaultClick end object mkAddName: TMenuItem Caption = 'Add Name...' ShortCut = 32833 OnClick = pAddNameClick end object N5: TMenuItem Caption = '-' end object mkNewKey: TMenuItem Caption = '&New Key...' ShortCut = 16462 OnClick = mkNewKeyClick end object mkEnable: TMenuItem Caption = '&Enable' ShortCut = 16453 OnClick = pEnableClick end object mkDisable: TMenuItem Caption = '&Disable' ShortCut = 16452 OnClick = pDisableClick end object mkRevoke: TMenuItem Caption = '&Revoke...' ShortCut = 16466 OnClick = mkRevokeClick end object N6: TMenuItem Caption = '-' end object mkImport: TMenuItem Caption = 'I&mport...' ShortCut = 113 OnClick = mkImportClick end object mkExport: TMenuItem Caption = 'E&xport...' ShortCut = 114 OnClick = pExportClick end object N7: TMenuItem Caption = '-' end object mkKeyProperties: TMenuItem Caption = 'Key P&roperties...' ShortCut = 13 OnClick = mkKeyPropertiesClick end end end object ListPopup: TPopupMenu Left = 104 Top = 56 object pCopy: TMenuItem Caption = '&Copy' OnClick = pCopyClick end object kCopy: TMenuItem Caption = '&Copy' ShortCut = 16429 Visible = False OnClick = pCopyClick end object pPaste: TMenuItem Caption = '&Paste' OnClick = mePasteClick end object kPaste: TMenuItem Caption = '&Paste' ShortCut = 8237 Visible = False OnClick = mePasteClick end object pDelete: TMenuItem Caption = '&Delete' OnClick = pDeleteClick end object pkDelete: TMenuItem Caption = '&Delete' ShortCut = 16430 Visible = False OnClick = pDeleteClick end object N1: TMenuItem Caption = '-' end object pSign: TMenuItem Caption = '&Sign...' OnClick = pSignClick end object pEnable: TMenuItem Caption = '&Enable' OnClick = pEnableClick end object pDisable: TMenuItem Caption = 'D&isable' OnClick = pDisableClick end object N2: TMenuItem Caption = '-' end object pAddName: TMenuItem Caption = 'Add &Name...' OnClick = pAddNameClick end object pRevoke: TMenuItem Caption = '&Revoke...' OnClick = mkRevokeClick end object pSetasDefault: TMenuItem Caption = 'Se&t as Default' OnClick = pSetasDefaultClick end object N3: TMenuItem Caption = '-' end object pImport: TMenuItem Caption = 'Import...' OnClick = mkImportClick end object pExport: TMenuItem Caption = 'Export...' OnClick = pExportClick end object N8: TMenuItem Caption = '-' end object pProperties: TMenuItem Caption = 'Key Properties' OnClick = mkKeyPropertiesClick end end end